UC知道ASP如何实现"邮件订阅"功能?
来源：百度知道 编辑：UC知道 时间：2024/06/16 00:37:37
1.已经有一个search.asp可以根据用户设定的“关键词”查询到“不同的查询结果”，查询结果显示地址是这样的：search.asp?show_id=3721
(其中show_id是对应每个user,每个user所设定的"关键词"是不同的)
show_id=trim(rs("user_id"))
s_key=trim(rs("s_key"))
2.已有一个SendMail的函数，可以正常发送单个的邮件：
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
问题是：如何将search.asp所查询到的页面符值给MailBody,以便让用户在收到的邮件中以html查看到?
(其中show_id是对应每个user,每个user所设定的"关键词"是不同的)
show_id=trim(rs("user_id"))
s_key=trim(rs("s_key"))
2.已有一个SendMail的函数，可以正常发送单个的邮件：
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明（收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址）
问题是：如何将search.asp所查询到的页面符值给MailBody,以便让用户在收到的邮件中以html查看到?
嗯，帮你写了下，主要是通过xmlhttp组件，访问search.asp?show_id=3721 这个网页，然后赋值给MailBody。
现在好多网站的首页就是通过这种方式生成静态页面的。
虽然我写这个花了不时间，但80Fen是绝对不值的哦，呵呵，不说了
看代码：
<%
'防止超时
Server.ScriptTimeOut =9999
'得到http://域名
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
'通过xmlhttp取回http://xxx.xxx.xxx/search.asp?show_id=3721内容赋值给MailBody
MailBody=getHTTPPage(cUrl&"search.asp?show_id=3721" )
'xmlhttp获得web内容的函数
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
se